@@ -1,4 +1,21 @@
==============================
+2011-07-26 11:39:36 +0100 0.44
+==============================
+
+ commit 12852760bd4d00c2075879ef28bd3f95599740d6
+ Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+ Date: Tue Jul 26 11:39:36 2011 +0100
+
+ Bump to version 0.44
+
+ commit 2e271b6610c913a77cb67070a8886c478eed3e44
+ Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+ Date: Tue Jul 26 11:06:45 2011 +0100
+
+ Actually die if no 'patch' is available, but delay check until when
+ we need it
+
+==============================
2011-07-21 10:24:51 +0100 0.42
==============================
@@ -38,6 +38,6 @@
"web" : "https://github.com/bingos/devel-patchperl"
}
},
- "version" : "0.42"
+ "version" : "0.44"
}
@@ -21,4 +21,4 @@ requires:
resources:
homepage: https://github.com/bingos/devel-patchperl
repository: https://github.com/bingos/devel-patchperl
-version: 0.42
+version: 0.44
@@ -27,7 +27,7 @@ my %WriteMakefileArgs = (
'IPC::Cmd' => '0.40',
'MIME::Base64' => '0'
},
- 'VERSION' => '0.42',
+ 'VERSION' => '0.44',
'test' => {
'TESTS' => 't/*.t'
}
@@ -2,7 +2,7 @@ NAME
Devel::PatchPerl - Patch perl source a la Devel::PPort's buildperl.pl
VERSION
- version 0.42
+ version 0.44
SYNOPSIS
use strict;
@@ -19,7 +19,7 @@ patchperl - patch a perl source tree
=head1 VERSION
-version 0.42
+version 0.44
=head1 AUTHOR
@@ -1,5 +1,5 @@
name = Devel-PatchPerl
-version = 0.42
+version = 0.44
author = Chris Williams <chris@bingosnet.co.uk>
license = Perl_5
copyright_holder = Chris Williams and Marcus Holland-Moritz
@@ -1,6 +1,6 @@
package Devel::PatchPerl::Hints;
BEGIN {
- $Devel::PatchPerl::Hints::VERSION = '0.42';
+ $Devel::PatchPerl::Hints::VERSION = '0.44';
}
#ABSTRACT: replacement 'hints' files
@@ -855,7 +855,7 @@ Devel::PatchPerl::Hints - replacement 'hints' files
=head1 VERSION
-version 0.42
+version 0.44
=head1 SYNOPSIS
@@ -1,6 +1,6 @@
package Devel::PatchPerl;
BEGIN {
- $Devel::PatchPerl::VERSION = '0.42';
+ $Devel::PatchPerl::VERSION = '0.44';
}
# ABSTRACT: Patch perl source a la Devel::PPort's buildperl.pl
@@ -147,7 +147,6 @@ sub patch_source {
}
}
$source = File::Spec->rel2abs($source);
- warn "No patch utility found\n" unless $patch_exe;
{
my $dir = pushd( $source );
for my $p ( grep { _is( $_->{perl}, $vers ) } @patch ) {
@@ -185,6 +184,7 @@ sub _patch
print "patching $_\n" for $patch =~ /^\+{3}\s+(\S+)/gm;
my $diff = 'tmp.diff';
_write_or_die($diff, $patch);
+ die "No patch utility found\n" unless $patch_exe;
_run_or_die("$patch_exe -f -s -p0 <$diff");
unlink $diff or die "unlink $diff: $!\n";
}
@@ -1722,7 +1722,7 @@ Devel::PatchPerl - Patch perl source a la Devel::PPort's buildperl.pl
=head1 VERSION
-version 0.42
+version 0.44
=head1 SYNOPSIS